﻿
Namespace LightSwitchApplication

    Public Class CreateNewUser

        Private Sub CreateNewUser_InitializeDataWorkspace(ByVal saveChangesTo As Global.System.Collections.Generic.List(Of Global.Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            Me.UserProperty = New User()
            Me.Text_ScreenTitle = "New USer"
            Me.UserProperty.Country = "Australia"
        End Sub

        Private Sub CreateNewUser_Saved()
            ' Write your code here.
            'Me.Close(False)
            'Application.Current.ShowDefaultScreen(Me.UserProperty)
        End Sub

    End Class

End Namespace